;;;Writes MYKELV.DEF to protect all atoms in ATOMS-FAMILY.
;;;For use with Kelvinator - autolisp symbol scrambling tool.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
(defun c:kkelv ( / )
  (setq f1 (open "mykelv.def" "w"))
  (write-line ")Protect" f1)
  (setq atomsl (atoms-family 1))
  (foreach n atomsl
    (write-line n f1))
  (close f1)
);defun
